home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The School House•
/
Astromacronomer •••
/
BASIC Runtime
/
BASIC Runtime.rsrc
/
CODE_12.txt
< prev
next >
Wrap
Text File
|
1986-09-30
|
23KB
|
403 lines
# near model CODE resource
# jump table entries: 3504-3505 (2 of them)
export_438:
00000000 526D FE2A addq.w [A5 - 0x1D6], 1
00000004 4DFA 000E lea.l A6, [PC + 0xE /* 00000014, value 0x8A008A, cstring "" */]
00000008 DCF6 7000 add.w A6, [A6 + D7.w]
0000000C 4E96 jsr [A6]
0000000E 536D FE2A subq.w [A5 - 0x1D6], 1
00000012 4E75 rts
00000014 008A 008A 02B8 ori.l A2, 0x8A02B8
0000001A 02C4 .incomplete
0000001C 02E8 .incomplete
0000001E 01FC .incomplete
00000020 02FC .incomplete
00000022 001C 0020 ori.b [A4]+, 0x20 /* ' ' */
00000026 027E 0230 andi.w <<invalid special address>>, 0x230
0000002A 02F6 .incomplete
0000002C 022C 0302 4EED andi.b [A4 + 0x4EED], 0x2
00000032 050A btst A2, D2
00000034 48E7 F6D8 movem.l -[A7], D0,D1,D2,D3,D5,D6,A0,A1,A3,A4
00000038 3B7C 0040 F2D0 move.w [A5 - 0xD30], 0x40 /* '@' */
0000003E 3F01 move.w -[A7], D1
00000040 7201 moveq.l D1, 0x01
00000042 342D F2D2 move.w D2, [A5 - 0xD2E]
00000046 3C2D F2D4 move.w D6, [A5 - 0xD2C]
0000004A 1A3C 0007 move.b D5, 0x7
0000004E 4EAD 05B2 jsr [A5 + 0x5B2 /* export_178 */]
00000052 2B4C F06E move.l [A5 - 0xF92], A4
00000056 6100 0186 bsr +0x188 /* 000001DE */
0000005A 6100 00F6 bsr +0xF8 /* 00000152 */
0000005E 6140 bsr +0x42 /* 000000A0 */
00000060 42AD F06E clr.l [A5 - 0xF92]
00000064 7000 moveq.l D0, 0x00
00000066 301F move.w D0, [A7]+
00000068 6730 beq +0x32 /* 0000009A */
0000006A 2600 move.l D3, D0
0000006C A11E syscall NewPtr, flags=1
0000006E 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
00000072 2B48 F2CC move.l [A5 - 0xD34], A0
00000076 41ED F36C lea.l A0, [A5 - 0xC94]
0000007A 317C FFFA 0018 move.w [A0 + 0x18], 0xFFFA
00000080 317C 0009 001A move.w [A0 + 0x1A], 0x9 /* '\t' */
00000086 216D F2CC 001C move.l [A0 + 0x1C], [A5 - 0xD34]
0000008C 3143 0020 move.w [A0 + 0x20], D3
00000090 A004 syscall Control
00000092 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
00000096 3B43 F2D0 move.w [A5 - 0xD30], D3
label0000009A:
0000009A 4CDF 1B6F movem.l D0,D1,D2,D3,D5,D6,A0,A1,A3,A4, [A7]+
0000009E 4E75 rts
fn000000A0:
000000A0 41ED F36C lea.l A0, [A5 - 0xC94]
000000A4 3140 001C move.w [A0 + 0x1C], D0
000000A8 317C 0008 001A move.w [A0 + 0x1A], 0x8
000000AE 317C FFF9 0018 move.w [A0 + 0x18], 0xFFF9
000000B4 A004 syscall Control
000000B6 317C FFFA 0018 move.w [A0 + 0x18], 0xFFFA
000000BC A004 syscall Control
000000BE 317C FFF9 0018 move.w [A0 + 0x18], 0xFFF9
000000C4 317C 000A 001A move.w [A0 + 0x1A], 0xA /* '\n' */
000000CA 217C 0000 1113 001C move.l [A0 + 0x1C], 0x1113
000000D2 42A8 0020 clr.l [A0 + 0x20]
000000D6 A004 syscall Control
000000D8 4E75 rts
000000DA 3131 3000 move.w -[A0], [A1 + D3.w]
000000DE 3135 3000 move.w -[A0], [A5 + D3.w]
000000E2 3330 3000 move.w -[A1], [A0 + D3.w]
000000E6 3630 3000 move.w D3, [A0 + D3.w]
000000EA 3132 3030 move.w -[A0], [A2 + D3.w + 0x30]
000000EE 0032 3430 3000 ori.b [A2 + D3.w], 0x30 /* '0' */
000000F4 3336 3030 move.w -[A1], [A6 + D3.w + 0x30]
000000F8 0034 3830 3000 ori.b [A4 + D3.w], 0x30 /* '0' */
000000FE 3732 3030 move.w -[A3], [A2 + D3.w + 0x30]
00000102 0039 3630 3000 3139 ori.b [0x30003139], 0x30 /* '0' */
0000010A 3230 3000 move.w D1, [A0 + D3.w]
0000010E 3537 3630 move.w -[A2], [A7 + D3.w * 8 + 0x30]
00000112 3000 move.w D0, D0
00000114 4F00 .invalid 7, D0 // invalid opcode 4 with b == 4
00000116 4500 .invalid 2, D0 // invalid opcode 4 with b == 4
00000118 4E00 .invalid // invalid opcode 4
0000011A 3500 move.w -[A2], D0
0000011C 3600 move.w D3, D0
0000011E 3700 move.w -[A3], D0
00000120 3800 move.w D4, D0
00000122 3100 move.w -[A0], D0
00000124 3200 move.w D1, D0
00000126 0000 03FF ori.b D0, 0xFF
0000012A 02F8 .incomplete
0000012C 017C 00BD bchg 0xBD, D0
00000130 005E 002E ori.w [A6]+, 0x2E /* '.' */
00000134 001E 0016 ori.b [A6]+, 0x16
00000138 000E 000A ori.b A6, 0xA /* '\n' */
0000013C 0004 0000 ori.b D4, 0x0
00000140 1000 move.b D0, D0
00000142 3000 move.w D0, D0
00000144 0000 001F ori.b D0, 0x1F
00000148 083F 047F btst.b <<invalid special address>>, 0x7F
0000014C 0CFF .incomplete
0000014E 4000 negx.b D0
00000150 C000 and.b D0, D0
fn00000152:
00000152 48E7 7E70 movem.l -[A7], D1,D2,D3,D4,D5,D6,A1,A2,A3
00000156 266D F068 movea.l A3, [A5 - 0xF98]
0000015A 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
0000015E 244B movea.l A2, A3
00000160 43FA FF78 lea.l A1, [PC - 0x88 /* 000000DA, value 0x31313000 '110\0', cstring "110" */]
00000164 47FA FFC2 lea.l A3, [PC - 0x3E /* 00000128, value 0x3FF02F8 */]
00000168 7200 moveq.l D1, 0x00
0000016A 7A00 moveq.l D5, 0x00
0000016C 760C moveq.l D3, 0x0C
0000016E 7803 moveq.l D4, 0x03
00000170 614C bsr +0x4E /* 000001BE */
00000172 8A40 or.w D5, D0
00000174 7C14 moveq.l D6, 0x14
00000176 0C40 0180 cmpi.w D0, 0x180
0000017A 6502 bcs +0x4 /* 0000017E */
0000017C 7C15 moveq.l D6, 0x15
label0000017E:
0000017E 7603 moveq.l D3, 0x03
00000180 780E moveq.l D4, 0x0E
00000182 613A bsr +0x3C /* 000001BE */
00000184 8A40 or.w D5, D0
00000186 7604 moveq.l D3, 0x04
00000188 7812 moveq.l D4, 0x12
0000018A 3F3C 00FF move.w -[A7], 0xFF
0000018E 4A02 tst.b D2
00000190 6702 beq +0x4 /* 00000194 */
00000192 4257 clr.w [A7]
label00000194:
00000194 6128 bsr +0x2A /* 000001BE */
00000196 805F or.w D0, [A7]+
00000198 1B40 F2D8 move.b [A5 - 0xD28], D0
0000019C 4200 clr.b D0
0000019E 8A40 or.w D5, D0
000001A0 7602 moveq.l D3, 0x02
000001A2 3806 move.w D4, D6
000001A4 6118 bsr +0x1A /* 000001BE */
000001A6 0C40 C000 cmpi.w D0, 0xC000
000001AA 660A bne +0xC /* 000001B6 */
000001AC 0805 000A btst.b D5, 0xA /* '\n' */
000001B0 6604 bne +0x6 /* 000001B6 */
000001B2 303C 8000 move.w D0, 0x8000
label000001B6:
000001B6 8045 or.w D0, D5
000001B8 4CDF 0E7E movem.l D1,D2,D3,D4,D5,D6,A1,A2,A3, [A7]+
000001BC 4E75 rts
fn000001BE:
000001BE 4EAD 0E62 jsr [A5 + 0xE62 /* export_456 */]
000001C2 6202 bhi +0x4 /* 000001C6 */
000001C4 1004 move.b D0, D4
label000001C6:
000001C6 B240 cmp.w D1, D0
000001C8 6410 bcc +0x12 /* 000001DA */
000001CA D243 add.w D1, D3
000001CC B240 cmp.w D1, D0
000001CE 650A bcs +0xC /* 000001DA */
000001D0 5340 subq.w D0, 1
000001D2 D040 add.w D0, D0
000001D4 3033 0000 move.w D0, [A3 + D0.w]
000001D8 4E75 rts
label000001DA:
000001DA 4EED 079A jmp [A5 + 0x79A /* export_239 */]
fn000001DE:
000001DE 43FA 0024 lea.l A1, [PC + 0x24 /* 00000204, value 0x52E414F, pstring ".AOut" */]
000001E2 6104 bsr +0x6 /* 000001E8 */
000001E4 43FA 0024 lea.l A1, [PC + 0x24 /* 0000020A, value 0x42E4149, pstring ".AIn" */]
fn000001E8:
000001E8 422D F387 clr.b [A5 - 0xC79]
000001EC 426D F382 clr.w [A5 - 0xC7E]
000001F0 42AD F388 clr.l [A5 - 0xC78]
000001F4 2B49 F37E move.l [A5 - 0xC82], A1
000001F8 41ED F36C lea.l A0, [A5 - 0xC94]
000001FC A000 syscall Open/PBHOpen/HOpen
000001FE 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
00000202 4E75 rts
00000204 052E 414F btst [A6 + 0x414F], D2
00000208 7574 moveq.l D2, 0x74
0000020A 042E 4149 6E00 subi.b [A6 + 0x6E00], 0x49 /* 'I' */
00000210 48E7 E0C0 movem.l -[A7], D0,D1,D2,A0,A1
00000214 4AAD F2CC tst.l [A5 - 0xD34]
00000218 6720 beq +0x22 /* 0000023A */
0000021A 41ED F36C lea.l A0, [A5 - 0xC94]
0000021E 317C FFFA 0018 move.w [A0 + 0x18], 0xFFFA
00000224 A001 syscall Close
00000226 317C FFF9 0018 move.w [A0 + 0x18], 0xFFF9
0000022C A001 syscall Close
0000022E 61AE bsr -0x50 /* 000001DE */
00000230 206D F2CC movea.l A0, [A5 - 0xD34]
00000234 A01F syscall DisposPtr/DisposePtr
00000236 42AD F2CC clr.l [A5 - 0xD34]
label0000023A:
0000023A 4CDF 0307 movem.l D0,D1,D2,A0,A1, [A7]+
0000023E 4E75 rts
00000240 700D moveq.l D0, 0x0D
00000242 4E71 nop
00000244 48E7 6010 movem.l -[A7], D1,D2,A3
00000248 47FA 0018 lea.l A3, [PC + 0x18 /* 00000262, value 0x4EAD05A2 */]
0000024C 342C 000C move.w D2, [A4 + 0xC]
00000250 322D F2D6 move.w D1, [A5 - 0xD2A]
00000254 4EAD 059A jsr [A5 + 0x59A /* export_175 */]
00000258 3B41 F2D6 move.w [A5 - 0xD2A], D1
0000025C 4CDF 0806 movem.l D1,D2,A3, [A7]+
00000260 4E75 rts
00000262 4EAD 05A2 jsr [A5 + 0x5A2 /* export_176 */]
00000266 48E7 8080 movem.l -[A7], D0,A0
0000026A 2B7C 0000 0001 F390 move.l [A5 - 0xC70], 0x1
00000272 41EC 001C lea.l A0, [A4 + 0x1C]
00000276 2B48 F38C move.l [A5 - 0xC74], A0
0000027A 1080 move.b [A0], D0
0000027C 3B7C FFF9 F384 move.w [A5 - 0xC7C], 0xFFF9
00000282 41ED F36C lea.l A0, [A5 - 0xC94]
00000286 A003 syscall Write
00000288 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
0000028C 4CDF 0101 movem.l D0,A0, [A7]+
00000290 4E75 rts
00000292 48E7 10C0 movem.l -[A7], D3,A0,A1
label00000296:
00000296 6140 bsr +0x42 /* 000002D8 */
00000298 6606 bne +0x8 /* 000002A0 */
0000029A 4EAD 0232 jsr [A5 + 0x232 /* export_66 */]
0000029E 60F6 bra -0x8 /* 00000296 */
label000002A0:
000002A0 2B7C 0000 0001 F390 move.l [A5 - 0xC70], 0x1
000002A8 43EC 001C lea.l A1, [A4 + 0x1C]
000002AC 2B49 F38C move.l [A5 - 0xC74], A1
000002B0 3B7C FFFA F384 move.w [A5 - 0xC7C], 0xFFFA
000002B6 41ED F36C lea.l A0, [A5 - 0xC94]
000002BA A002 syscall Read
000002BC 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
000002C0 1011 move.b D0, [A1]
000002C2 C02D F2D8 and.b D0, [A5 - 0xD28]
000002C6 4CDF 0308 movem.l D3,A0,A1, [A7]+
000002CA 4E75 rts
000002CC 4287 clr.l D7
000002CE 6108 bsr +0xA /* 000002D8 */
000002D0 6602 bne +0x4 /* 000002D4 */
000002D2 5387 subq.l D7, 1
label000002D4:
000002D4 2607 move.l D3, D7
000002D6 4E75 rts
fn000002D8:
000002D8 48E7 8080 movem.l -[A7], D0,A0
000002DC 3B7C FFFA F384 move.w [A5 - 0xC7C], 0xFFFA
000002E2 3B7C 0002 F386 move.w [A5 - 0xC7A], 0x2
000002E8 41ED F36C lea.l A0, [A5 - 0xC94]
000002EC A005 syscall Status
000002EE 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
000002F2 262D F388 move.l D3, [A5 - 0xC78]
000002F6 4CDF 0101 movem.l D0,A0, [A7]+
000002FA 4E75 rts
000002FC 61DA bsr -0x24 /* 000002D8 */
000002FE 7E00 moveq.l D7, 0x00
00000300 3E2D F2D0 move.w D7, [A5 - 0xD30]
00000304 9E83 sub.l D7, D3
00000306 2607 move.l D3, D7
00000308 4E75 rts
0000030A 362D F2D6 move.w D3, [A5 - 0xD2A]
0000030E 4E75 rts
00000310 3B43 F2D2 move.w [A5 - 0xD2E], D3
00000314 4E75 rts
00000316 3B43 F2D4 move.w [A5 - 0xD2C], D3
0000031A 4E75 rts
export_439:
0000031C 526D FE2A addq.w [A5 - 0x1D6], 1
00000320 4DFA 000E lea.l A6, [PC + 0xE /* 00000330, value 0x700070 'p\0p', cstring "" */]
00000324 DCF6 7000 add.w A6, [A6 + D7.w]
00000328 4E96 jsr [A6]
0000032A 536D FE2A subq.w [A5 - 0x1D6], 1
0000032E 4E75 rts
00000330 0070 0070 016C ori.w <<invalid full ext with I/IS == 4>>, 0x70 /* 'p' */
00000336 0140 bchg D0, D0
00000338 0156 bchg [A6], D0
0000033A 00BE 0178 0020 ori.l <<invalid special address>>, 0x1780020
00000340 0028 00C2 00F6 ori.b [A0 + 0xF6], 0xC2
00000346 013A 0168 btst [PC + 0x168 /* 000004B0, value 0xF2 */], D0
0000034A 017E bchg <<invalid special address>>, D0
label0000034C:
0000034C 4EED 054A jmp [A5 + 0x54A /* export_165 */]
00000350 4EED 050A jmp [A5 + 0x50A /* export_157 */]
label00000354:
00000354 4EED 079A jmp [A5 + 0x79A /* export_239 */]
00000358 48E7 F6F8 movem.l -[A7], D0,D1,D2,D3,D5,D6,A0,A1,A2,A3,A4
0000035C 4A2D F2C6 tst.b [A5 - 0xD3A]
00000360 66EA bne -0x14 /* 0000034C */
00000362 422D F2C8 clr.b [A5 - 0xD38]
00000366 7200 moveq.l D1, 0x00
00000368 342D F2AA move.w D2, [A5 - 0xD56]
0000036C 3C2D F2AC move.w D6, [A5 - 0xD54]
00000370 1A3C 0003 move.b D5, 0x3
00000374 4EAD 05B2 jsr [A5 + 0x5B2 /* export_178 */]
00000378 2B4C F06E move.l [A5 - 0xF92], A4
0000037C 6124 bsr +0x26 /* 000003A2 */
0000037E 426C 000E clr.w [A4 + 0xE]
00000382 0C2D 0002 F06C cmpi.b [A5 - 0xF94], 0x2
00000388 670A beq +0xC /* 00000394 */
0000038A 4EAD 0A7A jsr [A5 + 0xA7A /* export_331 */]
0000038E 4EAD 0A92 jsr [A5 + 0xA92 /* export_334 */]
00000392 6004 bra +0x6 /* 00000398 */
label00000394:
00000394 4EAD 0A82 jsr [A5 + 0xA82 /* export_332 */]
label00000398:
00000398 42AD F06E clr.l [A5 - 0xF92]
0000039C 4CDF 1F6F movem.l D0,D1,D2,D3,D5,D6,A0,A1,A2,A3,A4, [A7]+
000003A0 4E75 rts
fn000003A2:
000003A2 48E7 A070 movem.l -[A7], D0,D2,A1,A2,A3
000003A6 422D F2C9 clr.b [A5 - 0xD37]
000003AA 50ED F2CA st [A5 - 0xD36]
000003AE 266D F068 movea.l A3, [A5 - 0xF98]
000003B2 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
000003B6 244B movea.l A2, A3
000003B8 43FA 0026 lea.l A1, [PC + 0x26 /* 000003E0, value 0x54455854 'TEXT', cstring "TEXT" */]
000003BC 4EAD 0E62 jsr [A5 + 0xE62 /* export_456 */]
000003C0 6718 beq +0x1A /* 000003DA */
000003C2 5300 subq.b D0, 1
000003C4 6708 beq +0xA /* 000003CE */
000003C6 5300 subq.b D0, 1
000003C8 668A bne -0x74 /* 00000354 */
000003CA 50ED F2C9 st [A5 - 0xD37]
label000003CE:
000003CE 422D F2CA clr.b [A5 - 0xD36]
000003D2 4EAD 0E62 jsr [A5 + 0xE62 /* export_456 */]
000003D6 6600 FF7C bne -0x82 /* 00000354 */
label000003DA:
000003DA 4CDF 0E05 movem.l D0,D2,A1,A2,A3, [A7]+
000003DE 4E75 rts
000003E0 5445 addq.w D5, 2
000003E2 5854 addq.w [A4], 4
000003E4 0050 4943 ori.w [A0], 0x4943 /* 'IC' */
000003E8 5455 addq.w [A5], 2
000003EA 5245 addq.w D5, 1
000003EC 0000 4EED ori.b D0, 0xED
000003F0 0AA2 4AAD F2BA xori.l -[A2], 0x4AADF2BA
000003F6 6608 bne +0xA /* 00000400 */
000003F8 08EC 0001 0003 bset.b [A4 + 0x3], 0x1
000003FE 6024 bra +0x26 /* 00000424 */
label00000400:
00000400 4EAD 0A9A jsr [A5 + 0xA9A /* export_335 */]
00000404 0C00 0022 cmpi.b D0, 0x22 /* '\"' */
00000408 6606 bne +0x8 /* 00000410 */
0000040A 462D F2C8 not.b [A5 - 0xD38]
0000040E 6014 bra +0x16 /* 00000424 */
label00000410:
00000410 4A2D F2C8 tst.b [A5 - 0xD38]
00000414 660E bne +0x10 /* 00000424 */
00000416 4A2D F2CA tst.b [A5 - 0xD36]
0000041A 6708 beq +0xA /* 00000424 */
0000041C 0C00 0009 cmpi.b D0, 0x9 /* '\t' */
00000420 6602 bne +0x4 /* 00000424 */
00000422 702C moveq.l D0, 0x2C
label00000424:
00000424 4E75 rts
label00000426:
00000426 48E7 6010 movem.l -[A7], D1,D2,A3
0000042A 47FA 0018 lea.l A3, [PC + 0x18 /* 00000444, value 0xC000022 */]
0000042E 342C 000C move.w D2, [A4 + 0xC]
00000432 322C 000E move.w D1, [A4 + 0xE]
00000436 4EAD 059A jsr [A5 + 0x59A /* export_175 */]
0000043A 3941 000E move.w [A4 + 0xE], D1
0000043E 4CDF 0806 movem.l D1,D2,A3, [A7]+
00000442 4E75 rts
00000444 0C00 0022 cmpi.b D0, 0x22 /* '\"' */
00000448 6604 bne +0x6 /* 0000044E */
0000044A 462D F2C8 not.b [A5 - 0xD38]
label0000044E:
0000044E 4A2D F2C8 tst.b [A5 - 0xD38]
00000452 660E bne +0x10 /* 00000462 */
00000454 4A2D F2CA tst.b [A5 - 0xD36]
00000458 6708 beq +0xA /* 00000462 */
0000045A 0C00 002C cmpi.b D0, 0x2C /* ',' */
0000045E 6602 bne +0x4 /* 00000462 */
00000460 7009 moveq.l D0, 0x09
label00000462:
00000462 4EAD 05A2 jsr [A5 + 0x5A2 /* export_176 */]
00000466 4EED 0A8A jmp [A5 + 0xA8A /* export_333 */]
0000046A 362C 000E move.w D3, [A4 + 0xE]
0000046E 4E75 rts
00000470 262D F2B2 move.l D3, [A5 - 0xD4E]
00000474 0C2C 0001 0000 cmpi.b [A4 + 0x0], 0x1
0000047A 6704 beq +0x6 /* 00000480 */
0000047C 262D F2AE move.l D3, [A5 - 0xD52]
label00000480:
00000480 96AD F2B6 sub.l D3, [A5 - 0xD4A]
00000484 4E75 rts
00000486 262D F2B2 move.l D3, [A5 - 0xD4E]
0000048A 0C2C 0001 0000 cmpi.b [A4 + 0x0], 0x1
00000490 6704 beq +0x6 /* 00000496 */
00000492 96AD F2BA sub.l D3, [A5 - 0xD46]
label00000496:
00000496 4E75 rts
00000498 700D moveq.l D0, 0x0D
0000049A 608A bra -0x74 /* 00000426 */
0000049C 4283 clr.l D3
0000049E 4AAD F2BA tst.l [A5 - 0xD46]
000004A2 6602 bne +0x4 /* 000004A6 */
000004A4 5383 subq.l D3, 1
label000004A6:
000004A6 4E75 rts
000004A8 3B43 F2AA move.w [A5 - 0xD56], D3
000004AC 4E75 rts
000004AE 3B43 F2AC move.w [A5 - 0xD54], D3
000004B2 4E75 rts